Những câu hỏi liên quan
Hân Chướng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 14:44

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Bình luận (0)
Do Ngoc Thao My
Xem chi tiết
Ngô Bá Hùng
18 tháng 4 2023 lúc 15:27

program MultiplesOfN;
var
  n, i: integer;
begin
  repeat
    write('Nhap vao so nguyen duong n (0<n<100): ');
    readln(n);
  until (n > 0) and (n < 100);

  writeln('Cac boi so cua ', n, ' co 4 chu so la:');

  for i := 1000 to 9999 do
  begin
    if (i mod n = 0) then
    begin
      writeln(i);
    end;
  end;

  readln;
end.

Bình luận (1)
Lê Ân
Xem chi tiết
Lê Kiều Thiên An
Xem chi tiết
Hạ Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 11 2021 lúc 23:26

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

Bình luận (0)
NgocTuan
Xem chi tiết
Kim Thái
Xem chi tiết
Duydash
7 tháng 11 2021 lúc 20:06

Program tinh_tong;

uses crt;

var a,b:Integer;

begin

Write('Nhap gia tri a: ');

Readln(a);

Write('Nhap gia tri b: ');

Readln(b);

Writeln('Tong: ',a+b);

Readln();

end.

Bình luận (0)
Do Ngoc Thao My
Xem chi tiết
Edward Paros
16 tháng 4 2023 lúc 22:05

program TimBoi4ChuSo;
var
  n, i: integer;
begin
  repeat
    writeln('Nhap vao so nguyen n (2<n<100): ');
    readln(n);
  until (n > 2) and (n < 100);
  
  writeln('Cac boi cua ', n, ' co 4 chu so la: ');
  for i := 1000 to 9999 do
  begin
    if i mod n = 0 then
      writeln(i);
  end;
end.

 

Bình luận (0)
Nguyễn Văn Lâm
Xem chi tiết
Huỳnh Thanh Nguyên
16 tháng 12 2020 lúc 15:36

write('Nhap n: ');readln(n);

str(n,s);

d:=length(s);

if s[d-1]+s[d]='68' then writeln('day la bien so dep')

else writeln('day khong phai bien so dep');

Bình luận (0)
Tấn Phát
Xem chi tiết